#INCLUDE "PROTHEUS.CH"

/*
+-------------------------+-------------------------------------------+----------------------+
|Funcao: SX008            |Ghandy						          		    | Data: 16/09/2013     |
+-------------------------+-------------------------------------------+----------------------+
|Descricao: Cadastro da tabela ZZL																	         |
+--------------------------------------------------------------------------------------------+
|Uso: Modulo Gestao de Servicos - Cadastro de Regioes do sistema Jupiter Mobile    				|
+--------------------------------------------------------------------------------------------+
|                     ATUALIZACOES SOFRIDAS DESDE A CONSTRUCAO INICIAL.                      |
+-------------------------+------------+-----------------------------------------------------+
|Programador              |   Data     |             Motivo da Alteracao                     |
+-------------------------+------------+-----------------------------------------------------+
|                         |   /  /     |                                                     |
+-------------------------+------------+-----------------------------------------------------+
*/

User Function SX008()
dbSelectArea("ZZL")
ZZL->(dbSetOrder(1))
AxCadastro("ZZL", "Regioes - Sistema Jupiter Mobile", "u_ZZLDelOk()", "u_ZZLConfO()")
Return(.T.)                        

User Function ZZLDelOk()
LOCAL aArea := ZZL->(GetArea())
LOCAL lRet := .T.

AB2->(dbOrderNickName("CLASSI"))
AB2->(dbSeek(xfilial("AB2")+ZZ5->Z5_CODIGO))
lRet := AB2->(Eof())
IF !lRet
	MsgAlert('Existem chamados com esta atividade, a mesma nao pode ser excluida')
ENDIF
RestArea(aArea) 
Return(lRet)

User Function ZZLConfOk() 	
//MsgAlert("Clicou botao OK") 
Return .t.      
Return NIL
